home *** CD-ROM | disk | FTP | other *** search
/ El Mac 7 / El Mac 7.iso / Infotenimiento / Makers of the 20th Century / Data / GLOBE.DIR / 00022.ls < prev    next >
Encoding:
Text File  |  1996-03-11  |  540 b   |  21 lines
  1. on mouseDown
  2.   global ItemDel
  3.   set the castNum of sprite 14 to the castNum of sprite 14 + 1
  4.   set STIcks to the ticks
  5.   repeat while (the ticks - STIcks) < 15
  6.     updateStage()
  7.   end repeat
  8.   set temp to the pathName
  9.   set the itemDelimiter to ItemDel
  10.   delete item the number of items in temp of temp
  11.   delete item the number of items in temp of temp
  12.   set the itemDelimiter to ","
  13.   sound stop 1
  14.   sound stop 2
  15.   set the locV of sprite 2 to 900
  16.   go("end")
  17.   unLoad()
  18.   unLoadCast()
  19.   go("fade", string(temp & ItemDel & "main.dir"))
  20. end
  21.